home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / papel.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  2.0 KB  |  70 lines
  1. on exitFrame
  2.   global stage
  3.   if stage = 0 then
  4.     if soundBusy(2) = 0 then
  5.       sound playFile 2, "..\som\pletra.wav"
  6.     end if
  7.     if the visible of sprite 2 = 0 then
  8.       set the visible of sprite 2 to 1
  9.     else
  10.       set the visible of sprite 2 to 0
  11.     end if
  12.   end if
  13.   if stage = 1 then
  14.     if the visible of sprite 3 = 0 then
  15.       if soundBusy(2) = 0 then
  16.         sound playFile 2, "..\som\balde.wav"
  17.       end if
  18.       set the visible of sprite 3 to 1
  19.     else
  20.       set the visible of sprite 3 to 0
  21.     end if
  22.     if (the top of sprite 10 > 135) and (the left of sprite 10 > 208) and ((the top of sprite 10 < 176) and (the left of sprite 10 < 245)) then
  23.       set the visible of sprite 10 to 0
  24.       set the puppet of sprite 10 to 0
  25.       set the visible of sprite 3 to 0
  26.       set the visible of sprite 4 to 1
  27.       set the visible of sprite 5 to 1
  28.       set stage to 2
  29.     end if
  30.   end if
  31.   if stage = 2 then
  32.     if the visible of sprite 5 = 1 then
  33.       if soundBusy(2) = 0 then
  34.         sound playFile 2, "..\som\pbulee.wav"
  35.       end if
  36.       set the visible of sprite 5 to 0
  37.     else
  38.       set the visible of sprite 5 to 1
  39.     end if
  40.   end if
  41.   if stage = 4 then
  42.     if the visible of sprite 9 = 1 then
  43.       set the visible of sprite 9 to 0
  44.     else
  45.       set the visible of sprite 9 to 1
  46.     end if
  47.     if (the top of sprite 11 > 120) and (the left of sprite 11 > 479) and ((the top of sprite 11 < 140) and (the left of sprite 11 < 511)) then
  48.       set the visible of sprite 8 to 0
  49.       set the visible of sprite 9 to 0
  50.       set the puppet of sprite 11 to 0
  51.       set the visible of sprite 11 to 0
  52.       set the visible of sprite 12 to 1
  53.       set the visible of sprite 13 to 1
  54.       set stage to 5
  55.     end if
  56.   end if
  57.   if stage = 5 then
  58.     if the visible of sprite 13 = 1 then
  59.       if soundBusy(2) = 0 then
  60.         sound playFile 2, "..\som\ptritura.wav"
  61.       end if
  62.       set the visible of sprite 13 to 0
  63.     else
  64.       set the visible of sprite 13 to 1
  65.     end if
  66.   end if
  67.   updateStage()
  68.   go(the frame)
  69. end
  70.